home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 21 / Big_Mouth_The_21_1998_-_Side_B.d64 / christmas demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  898b  |  36 lines
  1. 10 rem
  2. 11 rem  commodore 64 christmas album
  3. 12 rem
  4. 13 rem
  5. 14 rem            music: wayne eastwood
  6. 15 rem  screens/sprites: h. rex boucher
  7. 16 rem      design/prog: stephen murri
  8. 17 rem
  9. 18 rem
  10. 19 rem
  11. 20 printchr$(8);
  12. 21 poke788,peek(788)+3
  13. 30 poke53280,6:poke53281,6:print"[147]"
  14. 31 print"note:":print""
  15. 32 print"   for maximum effect, audio output"
  16. 34 print"   must be connected to a high quality"
  17. 35 print"   sound system."
  18. 36 print"enter option:":print""
  19. 37 print"   r=run continuously"
  20. 38 print"   s=run once, sit and wait for any key"
  21. 39 geti$:ifi$=""thengoto39
  22. 40 ifi$<>"s"thenifi$<>"r"then goto39
  23. 42 if i$="s"thenpoke40959,1:goto50
  24. 43 poke40959,0
  25. 50 print"[147]loading":print""
  26. 52 poke198,10
  27. 60 print"load"chr$(34)" christmasmusic"chr$(34)",8,1"
  28. 61 print"new"
  29. 62 print"load"chr$(34)" christmascode"chr$(34)",8,1"
  30. 63 print"new"
  31. 64 print"load"chr$(34)" christmasroot"chr$(34)",8"
  32. 65 poke198,10
  33. 66 data 19,13,13,13,13,13,82,85,78,13
  34. 67 fori=1to10:readx:poke630+i,x:next
  35. 68 poke56,13:new
  36.